home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / comm / www / JTAWicon.lha / JTMakeIcon.rexx < prev    next >
OS/2 REXX Batch file  |  1997-03-29  |  693b  |  28 lines
  1. /* Make Icons - Icon Creator for AWeb-II
  2.   (c)1997 by Joachim Thomas
  3.  
  4.   jthomas@mail.evo.it
  5.   jthomas@readme.com
  6.  
  7.   This Program is E-Mailware - You may distribute it, on condition
  8.   that all parts are left intact.
  9.   If you like it or want to make improvements, please E-Mail me
  10. */
  11.  
  12.  
  13.  
  14.  
  15. call addlib("rexxreqtools.library", 0, -30, 0)
  16.  
  17.  
  18. 'GET URL var UrlName'
  19. IconName=translate(UrlName,'  ',':/.')
  20. StartPos=WORDS(IconName)
  21. IconName=WORD(IconName,StartPos-1)
  22. IconNameC='JTStarticons:'||IconName
  23. AAA=OPEN(ICONFILE,IconNameC,'W')
  24. address command 'copy JTStartIcons:template.info JTStarticons:'||IconName||'.info'
  25. OKW=WRITELN(ICONFILE,'CD AWeb-II:')
  26. OKW=WRITELN(ICONFILE,'AWeb-II:AWeb-II 'UrlName)
  27.  
  28.